home *** CD-ROM | disk | FTP | other *** search
;;; compiled by reingold@albert.gnu.ai.mit.edu on Fri Jun 14 15:02:49 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/cal-tex.el ;;; emacs version 19.29.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.28.90"))) (error "`cal-tex.el' was compiled for Emacs 19.29 or later")) (byte-code " " [require calendar autoload list-diary-entries "diary-lib" nil t calendar-holiday-list "holidays" calendar-iso-from-absolute "cal-iso"] 5) #@279 *The days of the week that are displayed on the portrait monthly calendar. Sunday is 0, Monday is 1, and so on. The default is to print from Sunday to Saturday. For example, use (setq cal-tex-which-days '(1 3 5)) to only print Monday, Wednesday, Friday. (defvar cal-tex-which-days (quote (0 1 2 3 4 5 6)) (#$ . -658)) #@108 *If t (default), then the holidays are also printed. If finding the holidays is too slow, set this to nil. (defvar cal-tex-holidays t (#$ . -1007)) #@55 *If t, the diary entries are printed in the calendar. (defvar cal-tex-diary nil (#$ . -1161)) #@534 *An expression in the variable `date' whose value is placed on date. The string resulting from evaluating this expression is placed at the bottom center of `date' on the monthly calendar, next to the date in the weekly calendars, and in the top center of daily calendars. Default is ordinal day number of the year and the number of days remaining. As an example of what you do, setting this to '(progn (require 'cal-hebrew) (calendar-hebrew-date-string date)) will put the Hebrew date at the bottom of each day. (defvar cal-tex-daily-string (quote (let* ((year (extract-calendar-year date)) (day (calendar-day-number date)) (days-remaining (- (calendar-day-number (list 12 31 year)) day))) (format "%d/%d" day days-remaining))) (#$ . -1262)) #@36 *The name for the tex-ed calendar. (defvar cal-tex-buffer "calendar.tex" (#$ . -2031)) #@51 *If t, use a 24 hour clock in the daily calendar. (defvar cal-tex-24 nil (#$ . -2124)) #@45 *The first hour of the daily calendar page. (defvar cal-tex-daily-start 8 (#$ . -2217)) #@44 *The last hour of the daily calendar page. (defvar cal-tex-daily-end 20 (#$ . -2311)) #@102 The initial LaTeX code for a day. The holidays, diary entries, bottom string, and the text follow. (defvar cal-tex-day-prefix "\\caldate{%s}{%s}" (#$ . 2404)) #@94 The format for LaTeX code for a day name. The names are taken from calendar-day-name-array. (defvar cal-tex-day-name-format "\\myday{%s}%%" (#$ . 2571)) #@33 LaTeX code for the month header (defvar cal-tex-cal-one-month "\\def\\calmonth#1#2%\n{\\begin{center}%\n\\Huge\\bf\\uppercase{#1} #2 \\\\[1cm]%\n\\end{center}}% \n\\vspace*{-1.5cm}%\n%\n" (#$ . 2731)) #@33 LaTeX code for the month header (defvar cal-tex-cal-multi-month "\\def\\calmonth#1#2#3#4%\n{\\begin{center}%\n\\Huge\\bf #1 #2---#3 #4\\\\[1cm]%\n\\end{center}}% \n\\vspace*{-1.5cm}%\n%\n" (#$ . 2938)) #@30 LaTeX code for a day heading (defvar cal-tex-myday "\\renewcommand{\\myday}[1]%\n{\\makebox[\\cellwidth]{\\hfill\\large\\bf#1\\hfill}}\n%\n" (#$ . 3146)) #@104 LaTeX code to insert one box with date info in calendar. This definition is the heart of the calendar! (defvar cal-tex-caldate "\\fboxsep=0pt\n\\long\\def\\caldate#1#2#3#4#5#6{%\n \\fbox{\\hbox to\\cellwidth{%\n \\vbox to\\cellheight{%\n \\hbox to\\cellwidth{%\n {\\hspace*{1mm}\\Large \\bf \\strut #2}\\hspace{.05\\cellwidth}%\n \\raisebox{\\holidaymult\\cellheight}%\n {\\parbox[t]{.75\\cellwidth}{\\tiny \\raggedright #4}}}\n \\hbox to\\cellwidth{%\n \\hspace*{1mm}\\parbox{.95\\cellwidth}{\\tiny \\raggedright #3}}\n \\hspace*{1mm}%\n \\hbox to\\cellwidth{#6}%\n \\vfill%\n \\hbox to\\cellwidth{\\hfill \\tiny #5 \\hfill}%\n \\vskip 1.4pt}%\n \\hskip -0.4pt}}}\n" (#$ . 3307)) #@62 Generate a list of all holidays from absolute date D1 to D2. (defalias 'cal-tex-list-holidays #[(d1 d2) " AA@)S \\\\\\\\* AA@)S \\\\\\\\* AA@)S \\\\\\\\* AA@)S \\\\\\\\* " [nil result calendar-gregorian-from-absolute d1 start date start-month start-year 12 macro-y d2 end end-month end-year 1 -2 prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 s e d t never displayed-month displayed-year append calendar-holiday-list p in-range a] 8 (#$ . 4093)]) #@67 Generate a list of all diary-entries from absolute date D1 to D2. (defalias 'cal-tex-list-diary-entries #[(d1 d2) " \fZT\") " [nil diary-display-hook list-diary-entries calendar-gregorian-from-absolute d1 d2] 4 (#$ . 5313)]) #@122 Insert the LaTeX preamble. Preamble Includes initial definitions for various LaTeX commands. Optional ARGS are included. (defalias 'cal-tex-preamble #[(&optional args) " " [get-buffer-create cal-tex-buffer erase-buffer "\\documentstyle" args "[" "]" "{article}\n" "\\hbadness 20000\n\\hfuzz=1000pt\n\\vbadness 20000\n\\marginparwidth 0pt\n\\oddsidemargin -2cm\n\\evensidemargin -2cm\n\\marginparsep 0pt\n\\topmargin 0pt\n\\textwidth 7.5in\n\\textheight 9.5in\n\\newlength{\\cellwidth}\n\\newlength{\\cellheight}\n\\newlength{\\boxwidth}\n\\newlength{\\boxheight}\n\\newlength{\\cellsize}\n\\newcommand{\\myday}[1]{}\n\\newcommand{\\caldate}[6]{}\n\\newcommand{\\nocaldate}[6]{}\n\\newcommand{\\calsmall}[6]{}\n%\n"] 3 (#$ . 5552)]) #@114 Make a buffer with LaTeX commands for the year cursor is on. Optional prefix argument specifies number of years. (defalias 'cal-tex-cursor-year #[(&optional arg) " AA@)\f " [cal-tex-year calendar-cursor-to-date t date arg 1] 4 (#$ . 6335) "P"]) #@114 Make a buffer with LaTeX commands for the year cursor is on. Optional prefix argument specifies number of years. (defalias 'cal-tex-cursor-year-landscape #[(&optional arg) " AA@)\f " [cal-tex-year calendar-cursor-to-date t date arg 1] 5 (#$ . 6603) "P"]) #@229 Make a one page yearly calendar of YEAR; do this for N years. There are four rows of three months each, unless optional LANDSCAPE is t, in which case the calendar isprinted in landscape mode with three rows of four months each. (defalias 'cal-tex-year #[(year n &optional landscape) " " [cal-tex-insert-preamble 1 landscape "12pt" cal-tex-vspace "-.6cm" "-3.1cm" 0 j n "\\vfill%\n" cal-tex-b-center cal-tex-Huge number-to-string year cal-tex-e-center "1cm" cal-tex-b-parbox "l" "5.9in" "4.3in" "\n" cal-tex-noindent cal-tex-nl i 12 cal-tex-mini-calendar "month" "1.1in" "1in" "\\month" cal-tex-hspace "0.5in" mod 4 3 cal-tex-e-parbox cal-tex-newpage cal-tex-end-document run-hooks cal-tex-year-hook cal-tex-hook] 6 (#$ . 6881)]) #@116 Make a Filofax one page yearly calendar of year indicated by cursor. Optional parameter specifies number of years. (defalias 'cal-tex-cursor-filofax-year #[(&optional arg) " " [arg 1 n calendar-cursor-to-date t date year cal-tex-preamble "twoside" cal-tex-cmd "\\textwidth 3.25in" "\\textheight 6.5in" "\\oddsidemargin 1.675in" "\\evensidemargin 1.675in" "\\topmargin 0pt" "\\headheight -0.875in" "\\fboxsep 0.5mm" "\\pagestyle{empty}" cal-tex-b-document "\\vspace*{0.25in}" 0 j format "\\hfil {\\Large \\bf %s} \\hfil\\\\\n" cal-tex-b-center cal-tex-b-parbox "l" "\\textwidth" "\n" cal-tex-noindent cal-tex-nl i 12 cal-tex-mini-calendar calendar-month-name "1in" ".9in" "tiny" "0.6mm" "\\noindent\\fbox{\\January}\\fbox{\\February}\\fbox{\\March}\\\\\n\\noindent\\fbox{\\April}\\fbox{\\May}\\fbox{\\June}\\\\\n\\noindent\\fbox{\\July}\\fbox{\\August}\\fbox{\\September}\\\\\n\\noindent\\fbox{\\October}\\fbox{\\November}\\fbox{\\December}\n" cal-tex-e-parbox cal-tex-e-center cal-tex-end-document cal-tex-newpage run-hooks cal-tex-year-hook cal-tex-hook] 9 (#$ . 7804) "P"]) #@187 Make a buffer with LaTeX commands for the month cursor is on. Optional prefix argument specifies number of months to be produced. The output is in landscape format, one month to a page. (defalias 'cal-tex-cursor-month-landscape #[(&optional arg) " \\\\\\ AA@)S \\\\\\\\* AA@)S \\\\\\\\*\" AA@)S \\\\\\\\* AA@)S \\\\\\\\*\" " [arg 1 n calendar-cursor-to-date t date month year end-month end-year (0 1 2 3 4 5 6) cal-tex-which-days 12 -1 macro-y cal-tex-diary cal-tex-list-diary-entries prior-years day 31 day-of-year 2 4 23 10 0 100 400 365 29 [31 28 31 30 31 30 31 31 30 31 30 31] cal-tex-holidays cal-tex-list-holidays nil small-months-at-start other-year other-month holidays diary-list cal-tex-insert-preamble cal-tex-number-weeks "12pt" cal-tex-cmd cal-tex-cal-one-month i -2 cal-tex-mini-calendar "lastmonth" "\\cellwidth" "\\cellheight" "nextmonth" cal-tex-insert-month-header cal-tex-insert-day-names cal-tex-nl ".2cm" mod calendar-day-of-week calendar-week-start-day 7 "\\lastmonth\\nextmonth\\hspace*{-2\\cellwidth}" cal-tex-insert-blank-days cal-tex-day-prefix cal-tex-insert-days cal-tex-insert-blank-days-at-end "\\vspace*{-\\cellwidth}\\hspace*{-2\\cellwidth}" "\\lastmonth\\nextmonth" run-hooks cal-tex-month-hook cal-tex-newpage cal-tex-vspace "-2cm" cal-tex-end-document cal-tex-hook] 11 (#$ . 9074) "P"]) #@168 Make a buffer with LaTeX commands for the month cursor is on. Optional prefix argument specifies number of months to be produced. Calendar is condensed onto one page. (defalias 'cal-tex-cursor-month #[(arg) " \\\\\\ AA@)S \\\\\\\\* AA@)S \\\\\\\\*\" AA@)S \\\\\\\\* AA@)S \\\\\\\\*\" " [calendar-cursor-to-date t date month year end-month end-year arg 1 n 12 -1 macro-y cal-tex-diary cal-tex-list-diary-entries prior-years day 31 day-of-year 2 4 23 10 0 100 400 365 29 [31 28 31 30 31 30 31 31 30 31 30 31] cal-tex-holidays cal-tex-list-holidays nil other-year other-month holidays diary-list cal-tex-insert-preamble cal-tex-number-weeks "12pt" cal-tex-cmd cal-tex-cal-multi-month cal-tex-cal-one-month cal-tex-insert-month-header cal-tex-insert-day-names cal-tex-nl ".2cm" cal-tex-insert-blank-days cal-tex-day-prefix i cal-tex-insert-days cal-tex-insert-blank-days-at-end cal-tex-end-document run-hooks cal-tex-hook] 11 (#$ . 11466) "P"]) #@252 Insert LaTeX commands for a range of days in monthly calendars. LaTeX commands are inserted for the days of the MONTH in YEAR. Diary entries on DIARY-LIST are included. Holidays on HOLIDAYS are included. Each day is formatted using format DAY-FORMAT. (defalias 'cal-tex-insert-days #[(month year diary-list holidays day-format) " \n\f \nSH* " [mod calendar-day-of-week month 1 year calendar-week-start-day 7 blank-days nil date 2 4 0 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] last i cal-tex-which-days format day-format calendar-month-name cal-tex-arg cal-tex-latexify-list diary-list holidays eval cal-tex-daily-string cal-tex-comment cal-tex-hfill cal-tex-nl] 6 (#$ . 13220)]) #@60 Insert the names of the days at top of a monthly calendar. (defalias 'cal-tex-insert-day-names #[nil " \"H\"c " [-1 i 6 cal-tex-which-days format cal-tex-day-name-format calendar-day-name-array mod calendar-week-start-day 7 cal-tex-comment] 6 (#$ . 14087)]) #@143 Create a title for a calendar. A title is inserted for a calendar with N months starting with MONTH YEAR and ending with END-MONTH END-YEAR. (defalias 'cal-tex-insert-month-header #[(n month year end-month end-year) " " [calendar-month-name month end-month end-month-name month-name n 1 format "\\calmonth{%s}{%s}\n\\vspace*{-0.5cm}" year "\\calmonth{%s}{%s}{%s}{%s}\n\\vspace*{-0.5cm}" end-year cal-tex-comment] 6 (#$ . 14387)]) #@217 Insert code for initial days not in calendar. Insert LaTeX code for the blank days at the beginning of the MONTH in YEAR. The entry is formatted using DAY-FORMAT. If the entire week is blank, no days are inserted. (defalias 'cal-tex-insert-blank-days #[(month year day-format) " \n\" " [cal-tex-first-blank-p month year mod calendar-day-of-week 1 calendar-week-start-day 7 blank-days -1 i cal-tex-which-days format day-format " " "{}{}{}{}%\n"] 5 (#$ . 14867)]) #@156 Insert code for final days not in calendar. Insert LaTeX code for the blank days at the end of the MONTH in YEAR. The entry is formatted using DAY-FORMAT. (defalias 'cal-tex-insert-blank-days-at-end #[(month year day-format) " \n\" \n\nE! " [cal-tex-last-blank-p month year 2 4 0 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] last-day mod calendar-day-of-week calendar-week-start-day 7 blank-days i 6 cal-tex-which-days format day-format "" "{}{}{}{}%\n"] 6 (#$ . 15400)]) #@165 Determine if any days of the first week will be printed. Return t if there will there be any days of the first week printed in the calendar starting in MONTH YEAR. (defalias 'cal-tex-first-blank-p #[(month year) " " [nil the-saturday any-days 0 i 7 calendar-day-of-week month year 6 cal-tex-which-days t] 4 (#$ . 15990)]) #@163 Determine if any days of the last week will be printed. Return t if there will there be any days of the last week printed in the calendar starting in MONTH YEAR. (defalias 'cal-tex-last-blank-p #[(month year) " " [nil month year 2 4 0 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] the-sunday last-day any-days 6 i calendar-day-of-week cal-tex-which-days t] 5 (#$ . 16393)]) #@233 Determine the number of weeks in a range of dates. Compute the number of weeks in the calendar starting with MONTH and YEAR, and lasting N months, including only the days in WHICH-DAYS. As it stands, this is only an upper bound. (defalias 'cal-tex-number-weeks #[(month year n) " \\\\\\ SH*\nE AA@)S \\\\\\\\* AA@)S \\\\\\\\*\"Z " [month 1 year d 12 n -1 macro-y calendar-dayname-on-or-before calendar-week-start-day 2 4 0 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] date prior-years day 31 day-of-year 23 10 365 7] 11 (#$ . 16923)]) #@212 Make a buffer with LaTeX commands for a two-page one-week calendar. It applies to the week that point is in. Optional prefix argument specifies number of weeks. Holidays are included if `cal-tex-holidays' is t. (defalias 'cal-tex-cursor-week #[(&optional arg) " AA@)S \\\\\\\\*\"! AA@)S \\\\\\\\*\n AA@)S \\\\\\\\*\\\" \n!\"! " [arg 1 n calendar-gregorian-from-absolute calendar-dayname-on-or-before calendar-week-start-day calendar-cursor-to-date t date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 cal-tex-holidays cal-tex-list-holidays 7 holidays cal-tex-preamble "11pt" cal-tex-cmd "\\textwidth 6.5in" "\\textheight 10.5in" "\\oddsidemargin 0in" "\\evensidemargin 0in" cal-tex-LaTeX-hourbox cal-tex-b-document "\\pagestyle{empty}" i cal-tex-vspace "-1.5in" cal-tex-b-center cal-tex-Huge-bf format "\\uppercase{%s}" calendar-month-name cal-tex-hspace "2em" number-to-string cal-tex-nl ".5cm" cal-tex-e-center "-.2in" cal-tex-b-parbox "l" "7in" j cal-tex-week-hours "3.1" cal-tex-incr-date cal-tex-e-parbox run-hooks cal-tex-week-hook cal-tex-newpage cal-tex-end-document cal-tex-hook] 11 (#$ . 17805) "P"]) #@212 Make a buffer with LaTeX commands for a two-page one-week calendar. It applies to the week that point is in. Optional prefix argument specifies number of weeks. Holidays are included if `cal-tex-holidays' is t. (defalias 'cal-tex-cursor-week2 #[(&optional arg) " AA@)S \\\\\\\\*\"! AA@)S \\\\\\\\*\n AA@)S \\\\\\\\*\\\" \n!\"! " [arg 1 n calendar-gregorian-from-absolute calendar-dayname-on-or-before calendar-week-start-day calendar-cursor-to-date t date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 d cal-tex-holidays cal-tex-list-holidays 7 holidays cal-tex-preamble "12pt" cal-tex-cmd "\\textwidth 6.5in" "\\textheight 10.5in" "\\oddsidemargin 0in" "\\evensidemargin 0in" cal-tex-LaTeX-hourbox cal-tex-b-document "\\pagestyle{empty}" i cal-tex-vspace "-1.5in" cal-tex-b-center cal-tex-Huge-bf format "\\uppercase{%s}" calendar-month-name cal-tex-hspace "2em" number-to-string cal-tex-nl ".5cm" cal-tex-e-center "-.2in" cal-tex-b-parbox "l" "\\textwidth" j 3 cal-tex-week-hours "5" cal-tex-incr-date cal-tex-e-parbox cal-tex-mini-calendar cal-tex-previous-month "lastmonth" "1.1in" "1in" "thismonth" cal-tex-next-month "nextmonth" "\\hbox to \\textwidth{" cal-tex-hfill "\\lastmonth" "\\thismonth" "\\nextmonth" "}" run-hooks cal-tex-week-hook cal-tex-newpage cal-tex-end-document cal-tex-hook] 11 (#$ . 19582) "P"]) #@231 Make a buffer with LaTeX commands for a one page ISO-style weekly calendar. Optional prefix argument specifies number of weeks. Diary entries are included if `cal-tex-diary' is t. Holidays are included if `cal-tex-holidays' is t. (defalias 'cal-tex-cursor-week-iso #[(&optional arg) " AA@)S \\\\\\\\*\"! AA@)S \\\\\\\\*\n AA@)S \\\\\\\\*\\\" AA@)S \\\\\\\\*\n AA@)S \\\\\\\\*\\\" AA@)S \\\\\\\\*! AA@)#)! " [arg 1 n calendar-gregorian-from-absolute calendar-dayname-on-or-before calendar-cursor-to-date t date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 cal-tex-holidays cal-tex-list-holidays 7 holidays cal-tex-diary cal-tex-list-diary-entries diary-list cal-tex-preamble "11pt" cal-tex-cmd "\\textwidth 6.5in" "\\textheight 10.5in" "\\oddsidemargin 0in" "\\evensidemargin 0in" cal-tex-b-document "\\pagestyle{empty}" i cal-tex-vspace "-1.5in" cal-tex-b-center cal-tex-Huge-bf calendar-iso-from-absolute d format "Week %d of %d" cal-tex-nl ".5cm" cal-tex-e-center cal-tex-b-parbox "l" "\\textwidth" j "t" cal-tex-rule "0pt" ".2mm" cal-tex-large-bf calendar-day-name ", " calendar-month-name " " number-to-string cal-tex-latexify-list "" ": " "; " cal-tex-hfill eval cal-tex-daily-string cal-tex-e-parbox cal-tex-noindent "\\vbox to 0pt{" "}" cal-tex-incr-date "2cm" run-hooks cal-tex-week-hook cal-tex-newpage cal-tex-end-document cal-tex-hook] 11 (#$ . 21774) "P"]) #@35 One hour and a line on the right. (defvar cal-tex-LaTeX-hourbox "\\newcommand{\\hourbox}[2]%\n{\\makebox[2em]{\\rule{0cm}{#2ex}#1}\\rule{3in}{.15mm}}\n" (#$ . 24407)) #@72 Insert hourly entries for DATE with HOLIDAYS, with line height HEIGHT. (defalias 'cal-tex-week-hours #[(date holidays height) " \n!\" " [date nil afternoon year day month cal-tex-comment "begin cal-tex-week-hours" cal-tex-cmd "\\ \\\\[-.2cm]" "\\noindent" cal-tex-b-parbox "l" "6.8in" cal-tex-large-bf calendar-day-name ", " calendar-month-name " " number-to-string cal-tex-latexify-list holidays "" ": " "; " cal-tex-hfill eval cal-tex-daily-string cal-tex-e-parbox cal-tex-nl "-.3cm" cal-tex-rule "0pt" ".2mm" "-.1cm" 7 i 12 cal-tex-24 5 "\\hourbox" cal-tex-arg height cal-tex-hspace ".4cm"] 6 (#$ . 24580)]) #@234 Make a buffer with LaTeX commands for a two-page one-week calendar. It applies to the week that point is in, and starts on Monday. Optional prefix argument specifies number of weeks. Holidays are included if `cal-tex-holidays' is t. (defalias 'cal-tex-cursor-week-monday #[(&optional arg) " AA@)S \\\\\\\\*\"! " [arg 1 n calendar-gregorian-from-absolute calendar-dayname-on-or-before 0 calendar-cursor-to-date t date prior-years month day year 31 day-of-year 2 4 23 10 100 400 365 cal-tex-preamble "11pt" cal-tex-cmd "\\textwidth 6.5in" "\\textheight 10.5in" "\\oddsidemargin 0in" "\\evensidemargin 0in" cal-tex-b-document i cal-tex-vspace "-1cm" "\\noindent " cal-tex-weekly4-box cal-tex-incr-date nil cal-tex-nl ".2cm" 5 3 6 run-hooks cal-tex-week-hook 7 cal-tex-newpage cal-tex-end-document cal-tex-hook] 11 (#$ . 25381) "P"]) #@46 Make one box for DATE, different if WEEKEND. (defalias 'cal-tex-weekly4-box #[(date weekend) " " [date day month year calendar-day-name dayname cal-tex-incr-date date1 day1 month1 year1 dayname1 cal-tex-b-framebox "8cm" "l" cal-tex-b-parbox "b" "7.5cm" format "{\\Large\\bf %s,} %s/%s/%s\\\\\n" cal-tex-rule "0pt" ".5mm" cal-tex-nl weekend 7 i 12 "{\\large\\sf %d}\\\\\n" 0 5 ".5cm" cal-tex-vspace "1cm" "\\ \\vfill" "1.5cm" cal-tex-e-parbox cal-tex-e-framebox cal-tex-hspace] 7 (#$ . 26525)]) #@230 Two-weeks-at-a-glance Filofax style calendar for week indicated by cursor. Optional prefix argument specifies number of weeks. Diary entries are included if `cal-tex-diary' is t. Holidays are included if `cal-tex-holidays' is t. (defalias 'cal-tex-cursor-filofax-2week #[(&optional arg) " AA@)S \\\\\\\\*\"! AA@)S \\\\\\\\*\n AA@)S \\\\\\\\*\\\" AA@)S \\\\\\\\*\n AA@)S \\\\\\\\*\\\" AA@)# AA@)U AA@)$ AA@)%)! A@)!! " [arg 1 n calendar-gregorian-from-absolute calendar-dayname-on-or-before calendar-week-start-day calendar-cursor-to-date t date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 cal-tex-holidays cal-tex-list-holidays 7 holidays cal-tex-diary cal-tex-list-diary-entries diary-list cal-tex-preamble "twoside" cal-tex-cmd "\\textwidth 3.25in" "\\textheight 6.5in" "\\oddsidemargin 1.75in" "\\evensidemargin 1.5in" "\\topmargin 0pt" "\\headheight -0.875in" "\\headsep 0.125in" "\\footskip .125in" "\\def\\righthead#1{\\hfill {\\normalsize \\bf #1}\\\\[-6pt]}\n\\long\\def\\rightday#1#2#3#4#5{%\n \\rule{\\textwidth}{0.3pt}\\\\%\n \\hbox to \\textwidth{%\n \\vbox to 0.7in{%\n \\vspace*{2pt}%\n \\hbox to \\textwidth{\\small #5 \\hfill #1 {\\normalsize \\bf #2}}%\n \\hbox to \\textwidth{\\vbox {\\raggedleft \\footnotesize \\em #4}}%\n \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\}\n\\def\\lefthead#1{\\noindent {\\normalsize \\bf #1}\\hfill\\\\[-6pt]}\n\\long\\def\\leftday#1#2#3#4#5{%\n \\rule{\\textwidth}{0.3pt}\\\\%\n \\hbox to \\textwidth{%\n \\vbox to 0.7in{%\n \\vspace*{2pt}%\n \\hbox to \\textwidth{\\noindent {\\normalsize \\bf #2} \\small #1 \\hfill #5}%\n \\hbox to \\textwidth{\\vbox {\\noindent \\footnotesize \\em #4}}%\n \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\}\n" cal-tex-b-document "\\pagestyle{empty}" i mod "\\righthead" "\\lefthead" cal-tex-arg cal-tex-incr-date 6 d format "%s %s" calendar-month-name "%s---%s %s" "%s %s---%s %s" "%\n" j "\\rightday" "\\leftday" calendar-day-name int-to-string cal-tex-latexify-list eval cal-tex-daily-string run-hooks cal-tex-week-hook cal-tex-newpage cal-tex-end-document cal-tex-hook] 11 (#$ . 27232) "P"]) #@253 One-week-at-a-glance Filofax style calendar for week indicated by cursor. Optional prefix argument specifies number of weeks. Weeks start on Monday. Diary entries are included if `cal-tex-diary' is t. Holidays are included if `cal-tex-holidays' is t. (defalias 'cal-tex-cursor-filofax-week #[(&optional arg) " AA@)S \\\\\\\\*\"! AA@)S \\\\\\\\*\n AA@)S \\\\\\\\*\\\" AA@)S \\\\\\\\*\n AA@)S \\\\\\\\*\\\" AA@)# AA@)U AA@)$ AA@)%)! A@)!! AA@)# AA@)U AA@)$ AA@)%)! A@)!! A@)!! " [arg 1 n calendar-gregorian-from-absolute calendar-dayname-on-or-before calendar-cursor-to-date t date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 cal-tex-holidays cal-tex-list-holidays 7 holidays cal-tex-diary cal-tex-list-diary-entries diary-list cal-tex-preamble "twoside" cal-tex-cmd "\\textwidth 3.25in" "\\textheight 6.5in" "\\oddsidemargin 1.75in" "\\evensidemargin 1.5in" "\\topmargin 0pt" "\\headheight -0.875in" "\\headsep 0.125in" "\\footskip .125in" "\\def\\righthead#1{\\hfill {\\normalsize \\bf #1}\\\\[-6pt]}\n\\long\\def\\rightday#1#2#3#4#5{%\n \\rule{\\textwidth}{0.3pt}\\\\%\n \\hbox to \\textwidth{%\n \\vbox to 1.85in{%\n \\vspace*{2pt}%\n \\hbox to \\textwidth{\\small #5 \\hfill #1 {\\normalsize \\bf #2}}%\n \\hbox to \\textwidth{\\vbox {\\raggedleft \\footnotesize \\em #4}}%\n \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\}\n\\long\\def\\weekend#1#2#3#4#5{%\n \\rule{\\textwidth}{0.3pt}\\\\%\n \\hbox to \\textwidth{%\n \\vbox to .8in{%\n \\vspace*{2pt}%\n \\hbox to \\textwidth{\\small #5 \\hfill #1 {\\normalsize \\bf #2}}%\n \\hbox to \\textwidth{\\vbox {\\raggedleft \\footnotesize \\em #4}}%\n \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\}\n\\def\\lefthead#1{\\noindent {\\normalsize \\bf #1}\\hfill\\\\[-6pt]}\n\\long\\def\\leftday#1#2#3#4#5{%\n \\rule{\\textwidth}{0.3pt}\\\\%\n \\hbox to \\textwidth{%\n \\vbox to 1.85in{%\n \\vspace*{2pt}%\n \\hbox to \\textwidth{\\noindent {\\normalsize \\bf #2} \\small #1 \\hfill #5}%\n \\hbox to \\textwidth{\\vbox {\\noindent \\footnotesize \\em #4}}%\n \\hbox to \\textwidth{\\vbox to 0pt {\\noindent \\footnotesize #3}}}}\\\\}\n" cal-tex-b-document "\\pagestyle{empty}\\ " cal-tex-newpage i "\\lefthead" cal-tex-arg cal-tex-incr-date d format "%s %s" calendar-month-name "%s---%s %s" "%s %s---%s %s" "%\n" j 3 "\\leftday" calendar-day-name int-to-string cal-tex-latexify-list eval cal-tex-daily-string "\\noindent\\rule{\\textwidth}{0.3pt}\\\\%\n" "\\righthead" "\\rightday" "\\weekend" run-hooks cal-tex-week-hook cal-tex-end-document cal-tex-hook] 11 (#$ . 30590) "P"]) #@112 Make a buffer with LaTeX commands for the day cursor is on. Optional prefix argument specifies number of days. (defalias 'cal-tex-cursor-day #[(&optional arg) " AA@)S \\\\\\\\* " [arg 1 calendar-cursor-to-date t date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365 n cal-tex-preamble "12pt" cal-tex-cmd "\\textwidth 6.5in" "\\textheight 10.5in" cal-tex-b-document "\\pagestyle{empty}" i cal-tex-vspace "-1.7in" cal-tex-daily-page calendar-gregorian-from-absolute cal-tex-newpage run-hooks cal-tex-daily-hook cal-tex-end-document cal-tex-hook] 9 (#$ . 34645) "P"]) #@61 Make a calendar page for Gregorian DATE on 8.5 by 11 paper. (defalias 'cal-tex-daily-page #[(date) " A@)!! " [nil hour calendar-month-name date month-name cal-tex-banner "cal-tex-daily-page" cal-tex-b-makebox "4cm" "l" cal-tex-b-parbox "b" "3.8cm" cal-tex-rule "0mm" "2cm" cal-tex-Huge number-to-string cal-tex-nl ".5cm" cal-tex-bf cal-tex-e-parbox cal-tex-hspace "1cm" cal-tex-scriptsize eval cal-tex-daily-string "3.5cm" cal-tex-e-makebox cal-tex-hfill "r" calendar-day-name ".4cm" "16.1cm" "1mm" ".1cm" cal-tex-daily-start i cal-tex-daily-end cal-tex-cmd "\\noindent" cal-tex-24 mod 12 0 "c" cal-tex-arg "15.5cm" ".2mm" ".2cm" "$\\diamond$" cal-tex-mini-calendar cal-tex-previous-month "lastmonth" "1.1in" "1in" "thismonth" cal-tex-next-month "nextmonth" "\\hbox to \\textwidth{" "\\lastmonth" "\\thismonth" "\\nextmonth" "}" "end of cal-tex-daily-page"] 7 (#$ . 35452)]) #@209 Produce mini-calendar for MONTH, YEAR in macro NAME with WIDTH and HEIGHT. Optional PTSIZE gives the point ptsize; scriptsize is the default. Optional COLSEP gives the column separation; 1mm is the default. (defalias 'cal-tex-mini-calendar #[(month year name width height &optional ptsize colsep) " \nSH* " [mod calendar-day-of-week month 1 year calendar-week-start-day 7 blank-days 2 4 0 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] last colsep "1mm" "\\def\\" name "{\\hbox to" width "{%\n" "\\vbox to" height "\\vfil \\hbox to" "\\hfil\\" ptsize "scriptsize" "\\begin{tabular}" "{@{\\hspace{0mm}}r@{\\hspace{" "}}r@{\\hspace{" "}}r@{\\hspace{0mm}}}%\n" "\\multicolumn{7}{c}{" calendar-month-name " " int-to-string "}\\\\[1mm]\n" str -1 i 6 calendar-day-name-array " & " "\\\\[0.7mm]\n" "\\\\[0.5mm]\n" "" "\n\\end{tabular}\\hfil}\\vfil}}}%\n"] 33 (#$ . 36635)]) #@92 The date of the day following DATE. If optional N is given, the date of N days after DATE. (defalias 'cal-tex-incr-date #[(date &optional n) " AA@)S \\\\\\\\*\\! " [calendar-gregorian-from-absolute n 1 date prior-years month day year 31 day-of-year 2 4 23 10 0 100 400 365] 10 (#$ . 37799)]) #@148 Return string with concatenated, LaTeXified entries in DATE_LIST for DATE. Use double backslash as a separator unless optional SEPARATOR is given. (defalias 'cal-tex-latexify-list #[(date-list date &optional separator) " \f@@\" " [mapconcat #[(x) " " [cal-tex-LaTeXify-string x] 2] nil date-list p result calendar-date-equal date append separator "\\\\"] 6 (#$ . 38224)]) #@65 Return the date of the first day in the month previous to DATE. (defalias 'cal-tex-previous-month #[(date) " " [date month year 12 -2 macro-y 1] 4 (#$ . 38660)]) #@64 Return the date of the first day in the month following DATE. (defalias 'cal-tex-next-month #[(date) " " [date month year 12 macro-y 1] 4 (#$ . 38868)]) #@126 Finish the LaTeX document. Insert the trailer to LaTeX document, pop to LaTeX buffer, add informative header, and run HOOK. (defalias 'cal-tex-end-document #[nil " " [cal-tex-e-document latex-mode pop-to-buffer cal-tex-buffer cal-tex-comment " This buffer was produced by cal-tex.el." " To print a calendar, type" " M-x tex-buffer RET" " M-x tex-print RET"] 2 (#$ . 39067)]) #@275 Initialize the output buffer. Select the output buffer, and insert the preamble for a calendar of WEEKS weeks. Insert code for landscape mode if LANDSCAPE is true. Use pointsize SIZE. Optional argument APPEND, if t, means add to end of without erasing current contents. (defalias 'cal-tex-insert-preamble #[(weeks landscape size &optional append) " " ["18cm" "24cm" height width landscape append cal-tex-preamble size cal-tex-cmd "\\oddsidemargin -1.75cm" "\\def\\holidaymult{.06}" "\\special{landscape}" "\\textwidth 9.5in" "\\textheight 7in" cal-tex-comment "\\def\\holidaymult{.08}" cal-tex-caldate cal-tex-myday cal-tex-b-document "\\pagestyle{empty}" "\\setlength{\\cellwidth}" format "\\setlength{\\cellwidth}{%f\\cellwidth}\n" 1.1000000000000001 cal-tex-which-days "\\setlength{\\cellheight}" "\\setlength{\\cellheight}{%f\\cellheight}\n" 1.0 weeks "\\ \\par" cal-tex-vspace "-3cm"] 4 (#$ . 39512)]) #@41 List of symbols and their replacements. (defvar cal-tex-LaTeX-subst-list (quote (("\"" . "``") ("\"" . "''") ("@" . "\\verb|@|") ("&" . "\\&") ("%" . "\\%") ("$" . "\\$") ("#" . "\\#") ("_" . "\\_") ("{" . "\\{") ("}" . "\\}") ("<" . "$<$") (">" . "$>$") ("\n" . "\\ \\\\"))) (#$ . 40547)) #@50 Protect special characters in STRING from LaTeX. (defalias 'cal-tex-LaTeXify-string #[(string) " " [string "" cal-tex-LaTeX-subst-list list tail head 0 1 ch assoc pair "\"" reverse nil] 4 (#$ . 40843)]) #@15 Insert hfill. (defalias 'cal-tex-hfill #[nil " " ["\\hfill"] 1 (#$ . 41134)]) #@17 Insert newpage. (defalias 'cal-tex-newpage #[nil " " ["\\newpage%\n"] 1 (#$ . 41220)]) #@18 Insert noindent. (defalias 'cal-tex-noindent #[nil " " ["\\noindent"] 1 (#$ . 41315)]) #@49 Insert vspace command to move SPACE vertically. (defalias 'cal-tex-vspace #[(space) " " ["\\vspace*{" space "}" cal-tex-comment] 3 (#$ . 41410)]) #@51 Insert hspace command to move SPACE horizontally. (defalias 'cal-tex-hspace #[(space) " " ["\\hspace*{" space "}" cal-tex-comment] 3 (#$ . 41570)]) #@80 Insert % at end of line, include COMMENT if present, and move to next line. (defalias 'cal-tex-comment #[(&optional comment) " " ["% " comment "\n"] 1 (#$ . 41732)]) #@46 Insert the COMMENT separated by blank lines. (defalias 'cal-tex-banner #[(comment) " " [cal-tex-comment " " comment] 3 (#$ . 41920)]) #@84 End a line with \. If SKIP, then add that much spacing. Add COMMENT if present (defalias 'cal-tex-nl #[(&optional skip comment) " " ["\\\\" skip "[" "]" cal-tex-comment comment] 3 (#$ . 42077)]) #@44 Insert optional TEXT surrounded by braces. (defalias 'cal-tex-arg #[(&optional text) " " ["{" text "}"] 1 (#$ . 42298)]) #@53 Insert LaTeX CMD, with optional ARG, and end with % (defalias 'cal-tex-cmd #[(cmd &optional arg) " " [cmd cal-tex-arg arg cal-tex-comment] 2 (#$ . 42438)]) #@31 Insert beginning of document. (defalias 'cal-tex-b-document #[nil " " [cal-tex-cmd "\\begin{document}"] 2 (#$ . 42610)]) #@25 Insert end of document. (defalias 'cal-tex-e-document #[nil " " [cal-tex-cmd "\\end{document}"] 2 (#$ . 42740)]) #@37 Insert beginning of centered block. (defalias 'cal-tex-b-center #[nil " " [cal-tex-cmd "\\begin{center}"] 2 (#$ . 42862)]) #@31 Insert end of centered block. (defalias 'cal-tex-e-center #[nil " " [cal-tex-comment cal-tex-cmd "\\end{center}"] 2 (#$ . 42994)]) #@51 Insert parbox with parameters POSITION and WIDTH. (defalias 'cal-tex-b-parbox #[(position width) " " ["\\parbox[" position "]{" width "}{" cal-tex-comment] 5 (#$ . 43137)]) #@54 Insert end of parbox. Force it to be a given HEIGHT. (defalias 'cal-tex-e-parbox #[(&optional height) " " [cal-tex-comment height cal-tex-rule "0mm" "}" "end parbox"] 4 (#$ . 43326)]) #@60 Insert framebox with parameters WIDTH and POSITION (clr). (defalias 'cal-tex-b-framebox #[(width position) " " ["\\framebox[" width "][" position "]{" cal-tex-comment] 5 (#$ . 43535)]) #@25 Insert end of framebox. (defalias 'cal-tex-e-framebox #[nil " " [cal-tex-comment "}" "end framebox"] 2 (#$ . 43737)]) #@59 Insert makebox with parameters WIDTH and POSITION (clr). (defalias 'cal-tex-b-makebox #[(width position) " " ["\\makebox[" width "][" position "]{" cal-tex-comment] 5 (#$ . 43870)]) #@24 Insert end of makebox. (defalias 'cal-tex-e-makebox #[nil " " [cal-tex-comment "}" "end makebox"] 2 (#$ . 44069)]) #@51 Insert a rule with parameters LOWER WIDTH HEIGHT. (defalias 'cal-tex-rule #[(lower width height) " " ["\\rule[" lower "]{" width "}{" height "}"] 7 (#$ . 44199)]) #@27 Insert STRING in bf font. (defalias 'cal-tex-em #[(string) " " ["{\\em " string "}"] 3 (#$ . 44377)]) #@27 Insert STRING in bf font. (defalias 'cal-tex-bf #[(string) " " ["{\\bf " string "}"] 3 (#$ . 44490)]) #@35 Insert STRING in scriptsize font. (defalias 'cal-tex-scriptsize #[(string) " " ["{\\scriptsize " string "}"] 3 (#$ . 44603)]) #@29 Insert STRING in huge size. (defalias 'cal-tex-huge #[(string) " " ["{\\huge " string "}"] 3 (#$ . 44740)]) #@29 Insert STRING in Huge size. (defalias 'cal-tex-Huge #[(string) " " ["{\\Huge " string "}"] 3 (#$ . 44859)]) #@32 Insert STRING in Huge bf size. (defalias 'cal-tex-Huge-bf #[(string) " " ["{\\Huge\\bf " string "}"] 3 (#$ . 44978)]) #@30 Insert STRING in large size. (defalias 'cal-tex-large #[(string) " " ["{\\large " string "}"] 3 (#$ . 45107)]) #@33 Insert STRING in large bf size. (defalias 'cal-tex-large-bf #[(string) " " ["{\\large\\bf " string "}"] 3 (#$ . 45229)]) (provide (quote cal-tex)) 
(.txt)